Freelog Special Edition 10/FreelogHS10.iso/Buzz/Buzz_Advanced_Pack.exe/{app}/Tools/KB2MIDI.EXE/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1999-02-27 | 14KB | 724 lines

object Form1: TForm1
  Left = 134
  Top = 11
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'KB2MIDI'
  ClientHeight = 354
  ClientWidth = 517
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = MainMenu1
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 139
    Top = 120
    Width = 52
    Height = 14
    Caption = 'Modulation'
  end
  object Label2: TLabel
    Left = 139
    Top = 141
    Width = 42
    Height = 14
    Caption = 'Tone No'
  end
  object Label3: TLabel
    Left = 139
    Top = 163
    Width = 52
    Height = 14
    Caption = 'Pitch Bend'
  end
  object Label4: TLabel
    Left = 77
    Top = 96
    Width = 108
    Height = 14
    Caption = 'Velocity Random Rate'
  end
  object devname: TStaticText
    Left = 2
    Top = 32
    Width = 176
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BorderStyle = sbsSunken
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 2
  end
  object device: TJVslider
    Left = 196
    Top = 31
    Width = 162
    Height = 18
    Hint = 'Change MIDI output'
    LargeChange = 16
    Max = 127
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnChange = deviceChange
    CtrlNo = 0
    ChangeToHint = False
    CtrlNoHex = '$00'
  end
  object channelname: TStaticText
    Left = 2
    Top = 53
    Width = 176
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BorderStyle = sbsSunken
    Caption = ' channel 1'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 4
  end
  object Channel: TJVslider
    Left = 196
    Top = 52
    Width = 162
    Height = 17
    Hint = 'Out of Range'
    Max = 15
    TabOrder = 5
    OnChange = ChannelChange
    Showvalue = svkItems
    CtrlNo = 0
    CtrlNoHex = '$00'
    Items.Strings = (
      ' channel 1'
      ' channel 2'
      ' channel 3'
      ' channel 4'
      ' channel 5'
      ' channel 6'
      ' channel 7'
      ' channel 8'
      ' channel 9'
      ' channel 10'
      ' channel 11'
      ' channel 12'
      ' channel 13'
      ' channel 14'
      ' channel 15'
      ' channel 16')
  end
  object velocity: TJVslider
    Left = 196
    Top = 71
    Width = 162
    Height = 17
    Hint = '90/127'
    LargeChange = 16
    Max = 127
    Position = 90
    TabOrder = 6
    OnChange = velocityChange
    CtrlNo = 0
    CtrlNoHex = '$00'
  end
  object Velocityname: TStaticText
    Left = 2
    Top = 72
    Width = 176
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BorderStyle = sbsSunken
    Caption = 'velocity: 90'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 7
  end
  object modulation: TJVslider
    Left = 195
    Top = 119
    Width = 162
    Height = 17
    Hint = '0/100'
    LargeChange = 16
    Max = 127
    TabOrder = 9
    OnChange = modulationChange
    CtrlNo = 0
    CtrlNoHex = '$00'
  end
  object tone: TJVslider
    Left = 195
    Top = 140
    Width = 162
    Height = 17
    Hint = '0/100'
    LargeChange = 16
    Max = 127
    TabOrder = 10
    OnChange = toneChange
    CtrlNo = 0
    CtrlNoHex = '$00'
  end
  object bend: TJVslider
    Left = 195
    Top = 162
    Width = 162
    Height = 17
    Hint = 'MID'
    LargeChange = 10
    Max = 127
    Position = 64
    TabOrder = 11
    OnChange = bendChange
    Showvalue = svkPan
    CtrlNo = 0
    PositionDefault = 64
    CtrlNoHex = '$00'
  end
  object show: TStaticText
    Left = 0
    Top = 0
    Width = 517
    Height = 25
    Alignment = taCenter
    AutoSize = False
    BorderStyle = sbsSunken
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 12
  end
  object Velrandom: TJVslider
    Left = 195
    Top = 92
    Width = 162
    Height = 18
    Hint = '10/64'
    LargeChange = 16
    Max = 64
    Position = 10
    TabOrder = 8
    OnChange = velocityChange
    CtrlNo = 0
    PositionDefault = 10
    CtrlNoHex = '$00'
  end
  object playmode: TRadioGroup
    Left = 360
    Top = 30
    Width = 156
    Height = 147
    Caption = 'PlayMode'
    Columns = 2
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Style = []
    ItemIndex = 0
    Items.Strings = (
      'Note'
      'Major'
      'Minor'
      'Major7th'
      'Minor7th'
      'Minor7th5'
      'Diminished'
      'Dominant7th'
      'Major9th'
      'Minor9th'
      'Interval')
    ParentFont = False
    TabOrder = 0
  end
  object interval: TComboBox
    Left = 445
    Top = 148
    Width = 66
    Height = 19
    Style = csDropDownList
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Style = []
    ItemHeight = 11
    Items.Strings = (
      '2nd'
      '3rd'
      '4th'
      '5th'
      '6th'
      '7th'
      '8th')
    ParentFont = False
    TabOrder = 1
  end
  object apeggiator: TGroupBox
    Left = 0
    Top = 180
    Width = 517
    Height = 174
    Caption = 'Arpeggiator'
    TabOrder = 13
    object Label5: TLabel
      Left = 40
      Top = 24
      Width = 23
      Height = 14
      Caption = 'Gate'
      Visible = False
    end
    object bpm: TComboBox
      Left = 448
      Top = 16
      Width = 65
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 2
      OnChange = bpmChange
    end
    object NOTE: TComboBox
      Tag = 1
      Left = 34
      Top = 48
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 3
    end
    object ComboBox1: TComboBox
      Tag = 2
      Left = 90
      Top = 48
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 4
    end
    object ComboBox2: TComboBox
      Tag = 3
      Left = 146
      Top = 48
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 5
    end
    object ComboBox3: TComboBox
      Tag = 4
      Left = 202
      Top = 48
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 6
    end
    object ComboBox4: TComboBox
      Tag = 5
      Left = 258
      Top = 48
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 7
    end
    object ComboBox5: TComboBox
      Tag = 6
      Left = 314
      Top = 48
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 8
    end
    object ComboBox6: TComboBox
      Tag = 7
      Left = 370
      Top = 48
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 9
    end
    object ComboBox7: TComboBox
      Tag = 8
      Left = 426
      Top = 48
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 10
    end
    object notevel: TComboBox
      Tag = 17
      Left = 34
      Top = 72
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 11
    end
    object ComboBox9: TComboBox
      Tag = 18
      Left = 90
      Top = 72
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 12
    end
    object ComboBox10: TComboBox
      Tag = 19
      Left = 146
      Top = 72
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 13
    end
    object ComboBox11: TComboBox
      Tag = 20
      Left = 202
      Top = 72
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 14
    end
    object ComboBox12: TComboBox
      Tag = 21
      Left = 258
      Top = 72
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 15
    end
    object ComboBox13: TComboBox
      Tag = 22
      Left = 314
      Top = 72
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 16
    end
    object ComboBox14: TComboBox
      Tag = 23
      Left = 370
      Top = 72
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 17
    end
    object ComboBox15: TComboBox
      Tag = 24
      Left = 426
      Top = 72
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 18
    end
    object ComboBox16: TComboBox
      Tag = 9
      Left = 34
      Top = 114
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 19
    end
    object ComboBox17: TComboBox
      Tag = 10
      Left = 90
      Top = 114
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 20
    end
    object ComboBox18: TComboBox
      Tag = 11
      Left = 146
      Top = 114
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 21
    end
    object ComboBox19: TComboBox
      Tag = 12
      Left = 202
      Top = 114
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 22
    end
    object ComboBox20: TComboBox
      Tag = 13
      Left = 258
      Top = 114
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 23
    end
    object ComboBox21: TComboBox
      Tag = 14
      Left = 314
      Top = 114
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 24
    end
    object ComboBox22: TComboBox
      Tag = 15
      Left = 370
      Top = 114
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 25
    end
    object ComboBox23: TComboBox
      Tag = 16
      Left = 426
      Top = 114
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 26
    end
    object ComboBox24: TComboBox
      Tag = 25
      Left = 34
      Top = 138
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 27
    end
    object ComboBox25: TComboBox
      Tag = 26
      Left = 90
      Top = 138
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 28
    end
    object ComboBox26: TComboBox
      Tag = 27
      Left = 146
      Top = 138
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 29
    end
    object ComboBox27: TComboBox
      Tag = 28
      Left = 202
      Top = 138
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 30
    end
    object ComboBox28: TComboBox
      Tag = 29
      Left = 258
      Top = 138
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 31
    end
    object ComboBox29: TComboBox
      Tag = 30
      Left = 314
      Top = 138
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 32
    end
    object ComboBox30: TComboBox
      Tag = 31
      Left = 370
      Top = 138
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 33
    end
    object ComboBox31: TComboBox
      Tag = 32
      Left = 426
      Top = 138
      Width = 57
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 34
    end
    object gate: TJVslider
      Left = 76
      Top = 25
      Width = 150
      Height = 13
      Hint = '22/35'
      LargeChange = 16
      Max = 35
      Min = 10
      Position = 22
      TabOrder = 0
      Visible = False
      CtrlNo = 0
      CtrlNoHex = '$00'
    end
    object apeg: TCheckBox
      Left = 384
      Top = 21
      Width = 57
      Height = 15
      Caption = 'On &4'
      TabOrder = 1
      OnClick = apegClick
    end
  end
  object RxGradientCaption1: TRxGradientCaption
    Captions = <>
    DefaultFont = False
    FormCaption = 'KB2MIDI'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clCaptionText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    StartColor = clBlack
    Left = 215
    Top = 38
  end
  object MainMenu1: TMainMenu
    Left = 271
    Top = 22
    object File1: TMenuItem
      Caption = '&File'
      object LoadArpeg1: TMenuItem
        Caption = 'Load Arpeg..'
        OnClick = LoadArpeg1Click
      end
      object SaveArpeg1: TMenuItem
        Caption = 'Save Arpeg..'
        OnClick = SaveArpeg1Click
      end
    end
    object panic1: TMenuItem
      Caption = '&Panic'
      Hint = 'Send All Sound Off'
      OnClick = panic1Click
    end
    object About1: TMenuItem
      Caption = '&About'
      OnClick = About1Click
    end
    object Exit1: TMenuItem
      Caption = 'E&xit'
      OnClick = Exit1Click
    end
  end
  object timer1: TSuperTimer
    Interval = 100
    OnTimer = timer1Timer
    ThreadPriority = tpTimeCritical
    Left = 424
    Top = 8
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'k2m'
    Left = 128
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'k2m'
    Left = 160
  end
end